object frmAnalisis: TfrmAnalisis
  Left = 258
  Top = 97
  Width = 332
  Height = 458
  Caption = 'Totales Compras x Mes'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  DesignSize = (
    324
    428)
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 385
    Width = 94
    Height = 13
    Anchors = [akLeft, akBottom]
    Caption = 'Total Comprado:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 8
    Top = 403
    Width = 108
    Height = 13
    Anchors = [akLeft, akBottom]
    Caption = 'Promedio Mensual:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lblTotal: TLabel
    Left = 207
    Top = 385
    Width = 3
    Height = 13
    Alignment = taRightJustify
    Anchors = [akLeft, akBottom]
  end
  object lblPromedio: TLabel
    Left = 207
    Top = 403
    Width = 3
    Height = 13
    Alignment = taRightJustify
    Anchors = [akLeft, akBottom]
  end
  object lblFechaIni: TLabel
    Left = 12
    Top = 16
    Width = 28
    Height = 13
    Caption = 'Inicio:'
  end
  object lblFechaFin: TLabel
    Left = 164
    Top = 16
    Width = 25
    Height = 13
    Anchors = [akTop, akRight]
    Caption = 'Final:'
  end
  object Button1: TButton
    Left = 239
    Top = 393
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = 'Cargar'
    TabOrder = 0
    OnClick = Button1Click
  end
  object vle: TValueListEditor
    Left = 8
    Top = 38
    Width = 309
    Height = 343
    Anchors = [akLeft, akTop, akRight, akBottom]
    Color = clWhite
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goAlwaysShowEditor, goThumbTracking]
    TabOrder = 1
    TitleCaptions.Strings = (
      'Mes'
      'Total c/IVA')
    OnDrawCell = vleDrawCell
    ColWidths = (
      143
      160)
  end
  object edtFechaIni: TDateEdit
    Left = 72
    Top = 10
    Width = 87
    Height = 21
    Color = clWhite
    Ctl3D = False
    DefaultToday = True
    DialogTitle = 'Seleccione una Fecha'
    NumGlyphs = 2
    ParentCtl3D = False
    YearDigits = dyTwo
    TabOrder = 2
    Text = '07/12/06'
  end
  object edtFechaFin: TDateEdit
    Left = 220
    Top = 10
    Width = 95
    Height = 21
    Color = clWhite
    Ctl3D = False
    DefaultToday = True
    Anchors = [akTop, akRight]
    NumGlyphs = 2
    ParentCtl3D = False
    YearDigits = dyTwo
    TabOrder = 3
    Text = '07/12/06'
  end
  object ds: TSQLDataSet
    SQLConnection = Datos.Con
    Params = <>
    Left = 24
    Top = 240
  end
end
